Cái này mình viết chương trình chính thôi, bạn tự viết ctc nhé

Câu 1: 

uses crt;

var n,i,s:longint;

begin

clrscr;

write('Nhap n='); readln(n);

s:=1;

for i:=1 to n do

 s:=s*i;

writeln(s);

readln;

end.

Câu 2: 

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=d downto 1 do 

  write(st[i]);

readln;

end.

Câu 3: 

uses crt;

var n:integer;

st:string;

begin

clrscr;

write('Nhap n='); readln(n);

str(n,st);

writeln('So ',n,' co ',length(st),' chu so');

readln;

end.

#include <bits/stdc++.h>

using namespace std;
long long a[1000006];
long long n;
int main()
{
    for(int i=1;i<=1000006;i++){
        a[i]=i*i;
    }
    cin>>n;
    for(int i=1;i<=n;i++){
        if(a[i]%n==0){cout<<a[i]/n;break;}
    }
    return 0;
}

const
fi='sochinhphuong.inp'
fo='sochinhphuong.out'
var f,g:text;n:longint;
function scp(n:longint):boolean;
begin
        if (sqr(trunc(sqrt(n)))=n) then exit (true);
        exit (false);
end;
begin
        assign(f,fi);reset(f);
        assign(g,fo);rewrite(g);
        readln(f,n);
        if scp(n) then writeln(g,'yes') else
        writeln(g,'no');
        close(f);close(g);
end.

Link code C của mình:

https://www.codepile.net/pile/bMmpg2Dr

#include <bits/stdc++.h>

using namespace std;

double s,a;

int i,n;

int main()

{

cin>>a;

s=0;

n=0;

while (s<=a) 

{

n=n+1;

s=s+1/(n*1.0);

}

cout<<n;

return 0;

}

Ta thấy \(87=1.87=3.29\) nên ta xét 2TH

 TH1: \(\left\{{}\begin{matrix}S\left(n\right)=1\\S\left(n+1\right)=87\end{matrix}\right.\)

 Vì \(S\left(n\right)=1\) nên \(n=100...00\), do đó \(n+1=100...01\) nên \(S\left(n+1\right)=2\), mâu thuẫn.

 TH2: \(\left\{{}\begin{matrix}S\left(n\right)=87\\S\left(n+1\right)=1\end{matrix}\right.\)

 Vì \(S\left(n+1\right)=1\) nên \(n+1=100...00\), do đó \(n=999...99\) chia hết cho 9, dẫn đến \(S\left(n\right)⋮9\), mâu thuẫn với \(S\left(n\right)=87\)

 TH3: \(\left\{{}\begin{matrix}S\left(n\right)=3\\S\left(n+1\right)=29\end{matrix}\right.\)

Vì \(S\left(n\right)=3\) nên \(n⋮3\) \(\Rightarrow n+1\) chia 3 dư 1 \(\Rightarrow S\left(n+1\right)\) chia 3 dư 1. Thế nhưng 29 chia 3 dư 2, vô lý.

 TH4: \(\left\{{}\begin{matrix}S\left(n\right)=29\\S\left(n+1\right)=3\end{matrix}\right.\) . Ta lại xét các TH:

   TH4.1: \(n+1=10...010...01\) hoặc \(200...01\) hoặc \(100...2\). Khi đó trong tất cả các TH thì ta đều có \(S\left(n\right)=2\), không thỏa mãn.

   TH4.2: \(n+1=10...010...010...0\) hoặc \(200...0100...0\) hoặc \(100...020...0\) hoặc \(300...00\). Khi đó trong tất cả các TH thì ta đều có\(S\left(n\right)=2+9m\left(m\inℕ\right)\) với m là số chữ số 9 có trong n. Để chọn được số nhỏ nhất, ta chỉ việc lược bỏ tất cả các số 0 ở giữa và cho \(m=3\) để có \(S\left(n\right)=29\). Vậy, ta tìm được \(n=11999\) (thỏa mãn)

 Vậy, số cần tìm là 11999.

uses crt;

var a:array[1..100]of integer;

i,n,t,k:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

readln(k);

t:=0;

for i:=1 to n do 

  if a[i] mod k=0 then t:=t+a[i];

writeln(t);

readln;

end.

Uses crt;
Var A: array[1..100] of longint;
    n，k，i，s: longint;
Begin
Clrscr;
Write(‘Nhap n，k: ‘); Readln(n，k);
s:=0;
For i:=1 to n do
Begin
Read(A[i]);
If A[i] mod k = 0 then s:=s+A[i];
End;
Write(s);
Readln
End.

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,k,t;

int main()

{

cin>>n>>k;

t=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x%k==0) t+=x;

}

cout<<t;

return 0;

}